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function slMultiCompare ($StringA, $StringB) 
; SL platforms: 4.01 ; LastRev: 2002-Aug-21 
; dependencies: slWildCompare ( ) , slQuestionCompare () 

; compares one string to another, and supports '*' and •?• as a wildcards 
; stringA: constant string 
; stringB: variable- string 

; stringB can contain wildcards ' * ' and ' ? 1 

stringB can be an array or a single string containing multiple elements, 
each separated by a semi -colon 
dim $ArrayB, $elementB 
$slMultiCompare=0 ; default false 
if $StringA and $StringB 
$StringA=trim($StringA) 

if vartype ($StringB) <8192 ; StringB is a string 

$ArrayB=split ($StringB+ 1 ; 1 , ' ; 1 ) ; remove last ; added for split to achieve at least 
one element 

redim preserve $ Ar r ayB [ubound ( $ Arr ayB ) - 1 } 
else ; StringB is an array 

$ Arr ayB = $ St r ingB 
endif 

for each $ElementB in $ArrayB 
$ElementB=trim ( $elementB) 
select 

case $ Element B= * * ' ; single wildcard - matches everything 

$slMultiCompare=l 

return ; true 
case $StringA=s$ElementB 

$slMultiCompare=l 

return ; true 
case instr ($ElementB, ■ * 1 ) 

if slWildCompare ($ StringA, $ElementB) 
$slMultiCompare=l 
return ; true 

endif 

case instr ($ElementB, '?■ ) 

if slWildCompare ($StringA, $ElementB) 

$ s lMul t iCompar e= 1 

return ; true 
endif 

case 1 ; no wildcards and we've already determined that strings don't match 
; do nothing - proceed to next array element 
endselect 
next 
endif 
endfunction 

function slWildCompare ($StringA, $StringB) 

; SL platforms: 4.01 ; LastRev: 2 002 -Aug- 21 
; dependencies : slQuestionCompare ( ) 

; Do not call this function directly use slMultiCompare ( ) instead 
; compares one string to another, and supports wildcards 
; stringA: constant string 

; stringB: variable string (can contain wildcards '*' and '?') 

; could add case-sensitivity option in future... 

dim $LenStringA, $lenStringB, $ Quest ionLoc, $AsteriskLoc 

dim $GlobArray, $LenGAE, $lenGAEf irst , $lenGAElast, $GAUB 

$slWildCompare=0 ; default to no match 

if $StringA and $StringB 

$StringA=trim ( $StringA) 

$LenStringA-len ($StringA) 

if $StringB='*' ; single wildcard - matches everything 

$slWildCompare=l 

return ;true 
endif 

if $StringA=$StringB ; exact match 

$ s 1 W i 1 dCompar e = 1 

return ; true 
else ; not exact match 



$asteriskLoc=instr ($StringB, ' * 1 ) 
$questionLoc=instr ($StringB, '?') 
if not ($asteriskLoc or $questionLoc) 

return ; false: no wildcards - no reason to continue 
end if 

$lenStringB=len($StringB) 
$GlobArray=split ($StringB+ '*•,'*') 
$GAUB=ubound ( $GlobArray ) - 1 

redim preserve $GlobArray [$GAUB] ; remove last * added for split to achieve at 
least one element 

; first Glob - special case test 
$lenGAEf irst=len ($GlobArray [0] ) 

if not slQuestionCompare (left ($StringA, $lenGAEf irst) , $GlobArray [0] ) 

return ; false 
end if 

; last Glob - special case test 
$lenGAElast=len ( $GlobArray [$GAUB] ) 

if not slQuestionCompare {right ($StringA, $lenGAElast) , $GlobArray [$GAUB] ) 

return ; false 
endif 

$StringA=substr ($StringA, $lenGAEf irst+1, len ($StringA) -$lenGAElast ) ; removed final 
-1 (was failing on *abc*) 

if $GAUB<2 ; less than 2 Globs - preceeding special case tests determined result 

$slWildCompare=l 

return ; true 
endif 

for $index=l to $GAUB-1 ; process elements 2 through next -to- last 
$lenGAE=len{$GlobArray [$ index] ) 
if len ( $StringA) <$lenGAE 

return ; false 
endif 

while len ($StringA) and not 
slQuestionCompare (left ($StringA, $lenGAE) , $GlobArray [$ index] ) 
$StringA=substr ($StringA, 2) 
loop 

if not slQuestionCompare (left ($StringA, $lenGAE) , $GlobArray [$ index] ) 

return ; false 
else 

$StringA=substr.( $StringA, $lenGAE+l ) 
endif 
next 

$ slWildCompare=l 
endif 
endif 
endf unction 

function slQuestionCompare ($StringA, $StringB) 
; SL platforms: 4.01 ; LastRev: 2002-Aug-21 

; Do not call this function directly use slMultiCompare ( ) or slWildCompare ( ) instead 

; compares one string to another, and supports '?' as a wildcard 

; StringA - constant 

; StringB - variable 

dim $ index, $StringBchar 

$slQuestionCompare=l 

if $StringA and $StringB 

if $StringA=$StringB 

$slQuestionCompare=l ; true 

else 

$slQuestionCompare=0 ; default no match 

if not instr ($StringB, 1 ? ' ) ; no question marks 

return ; false 
else 

; length of both strings must be same to continue 
if len($StringA) <> len ($ StringB) ; different lengths 

return ; false 
endif 

; perform comparison character-by-character 
for $index=l to len ($StringA) 

$StringBchar=substr ($StringB, $ index, 1) 

if (substr ($StringA, $index, 1) <>$StringBchar) and $StringBchar<> ' ? 1 
return ; false 



* • * * endif 
next 

$slQuestionCompare=l ; true 
endif 
endif 
endif 
endf unction 
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$CurrentPowerProf ileValue=readvalue ( ' HKCU\Control 
Panel \PowerCf g ' , ' Current PowerPolicy' ) 

$ Current Power Pro fileName=readvalue ( 1 HKCU\Control 
Panel\PowerCf g\PowerPolicies\ ' +$Current Power Prof ileValue , * Name ' ) 

select 

case instr ($SiProcessorNameString, 'mobile ■ ) ; Mobile CPU type 
; highly confident that this is a portable computer! 
; platforms tested on: XP 

$ClientClassRule= 1 rule 1: Mobile CPU type -> portable' 
$SiComputerType= ' Portable * 
$ClientClass= 1 Port 1 
case @INWIN=1 and 

O+readvalue ( ' HKLM\System\CurrentControlSet\Services\pcmcia 1 , ' Start ' ) =4 ; NT & PCMCIA 
kernel driver not started 

; highly confident that this is a desktop computer! 

; platforms tested on: NT, 2000, XP 

$ClientClassRule=' rule 2: PCMCIA driver not started (NT) -> desktop' 
$SiComputerType= ' Desktop ' 
$ClientClass= ' Desk ' 
case @INWIN=2 and 

* '+readvalue( ' HKLM\System\CurrentControlSet\Control\InstalledFiles ' , » PCCard . vxd ' ) = » ' ; 9x 
Ec PCMCIA kernel driver not started 

; highly confident that this is a desktop computer! 

; platforms tested on: 95, 98, Me 

$ClientClassRule=' rule 3: PCMCIA driver not started (9x) -> desktop' 
$SiComputerType= ' Desktop ' 
$ClientClass= ' Desk ' 
case $0So'NT' and $SiBatteryState=12 8 ; no battery present 

; fairly confident that this is a desktop computer (it could be a laptop with the 
battery removed) . 

; platforms tested on: 
. $ClientClassRule= ' rule 4: No system battery deteted -> desktop' 
$SiComputerType= 1 Desktop ' 
$ClientClass= ' Desk 1 

case slGetServiceStartup CUPS') ^Automatic' ; Built-in UPS service on 2000/XP 

; highly confident that this is a desktop computer (who'd install UPS software on 
a laptop?) 

; platforms tested on: XP, 2000 

$ClientClassRule='rule 5: built-in UPS service is automatic -> desktop' 
$SiComputerType= 'Desktop ' 
$ClientClass= r Desk 1 
case slGetServiceStartup ( 'LiebertM' )=' Automatic' ; Liebert MultiLink 3.0 

; highly confident that this is a desktop computer (who'd install UPS software on 
a laptop?) 

; platforms tested on: XP, 2000 

$ClientClassRule='rule 6: Liebert MultiLink UPS service is automatic -> desktop' 
$SiComputerType= ' Desktop ' 
$ClientClass= ' Desk ' 

case slGetServiceStartup ( 'APCPBEAgent ' ) = 'Automatic 1 ; APC PowerChute Business 
Edition 6.1 

; highly confident that this is a desktop computer (who'd install UPS software on 
a laptop?) 

; platforms tested on: XP, 2 000 

$ClientClassRule= ' rule 7: APC PowerChute Business Edition UPS service is 
automatic -> desktop' 

$SiComputerType= 'Desktop ' 
$ClientClass= 1 Desk ' 

case slGetServiceStartup ( 'APC UPS Service ')= 1 Automatic ' ; APC PowerChute Personal 
Edition 

; highly confident that this is a desktop computer (who'd install UPS software on 
a laptop?) 



; platforms tested on: XP, 2000 

$ClientClassRule= 1 rule 8: APC PowerChute Business Edition UPS service is 
automatic -> desktop' 

$SiComputerType= * Desktop 1 

$ClientClass- 1 Desk 1 
case $CurrentPowerProf ileName= ' APC USB UPS 1 

; highly confident that this is a desktop computer (who'd install UPS software on 
a laptop?) 

; ***$$ what about other UPS brands? What about APC non-USB models? 
; platforms tested on: XP, 2000 

$ClientClassRule='rule 9: APC USB UPS power scheme -> desktop 1 
$SiComputerType= ' Desktop 1 
$ClientClass= 1 Desk ' 

case $CurrentPowerProfileName=' Portable/Laptop 1 or $ Current Power Prof ileName= 1 Max 
Battery' 

; somewhat confident that this is a portable computer. This setting is user 
profile-specific and can be changed 

; platforms tested on: XP, 2000 

$ClientClassRule= 1 rule 10: portable/ laptop or max battery power scheme -> 
portable ' 

$SiComputerType= * Portable 1 
$ClientClass= ' Port ' 
case 1 

; At this point, here is what we know: 

Not a mobile CPU type 
; The Port able /Lap top power scheme is not selected 

It does have PCMCIA sockets. 

9x, 2000 & XP systems do not have a battery present 

$ClientClassRule= • rule 11: default -> portable' 
$SiComputerType= 1 Portable 1 
$ClientClass= ' Port ' 
endselect 



